home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / demo / Reflections4De.lha / Ref4Demo / skripte.lha / pyrastu.men < prev    next >
Text File  |  1996-07-26  |  724b  |  37 lines
  1. REFSKRIPT
  2. GET_XY Breite Unten Oben
  3. RETURN_IF_ABBRUCH 1
  4. GET_RESULT res
  5. COPY_WORD res 1
  6. GET_RESULT breite_unten
  7. COPY_WORD res 2
  8. GET_RESULT breite_oben
  9. GET_REAL Höhe der Pyramide
  10. RETURN_IF_ABBRUCH 1
  11. GET_RESULT hoehe
  12.  
  13. ; Dreiecks-Objekt erzeugen */
  14. DREI_QUADER  Pyramiden_stumpf breite_unten breite_unten hoehe
  15. GET_RESULT pyr
  16. DIV breite_oben 2
  17. GET_RESULT brhalb
  18. MUL brhalb -1
  19. GET_RESULT brhalb_min
  20. DIV hoehe 2
  21. GET_RESULT h2
  22. ; 4 punkte der ober_seite verschieben
  23. ; 4.Pkt
  24. GEO_SET_PT pyr 4 brhalb_min brhalb_min h2
  25. ; 5.Pkt
  26. GEO_SET_PT pyr 5 brhalb brhalb_min h2
  27. ; 6.Pkt
  28. GEO_SET_PT pyr 6 brhalb brhalb h2
  29. ; 7.Pkt
  30. GEO_SET_PT pyr 7 brhalb_min brhalb h2
  31. PKL_ADD pyr
  32. ZENTRIEREN pyr
  33. PLOT_PKL
  34.  
  35. RETURN 1
  36.  
  37.